(use srfi-1)
(use sxml.ssax)
(use sxml.serializer)
(use sxml.tools)
(use sxml.sxpath)
(use sxml.tree-trans)
(use gauche.sequence)
(use gauche.process)
(use gauche.parseopt)

(define sxml (call-with-input-file "marked" (lambda (in)
					      (ssax:xml->sxml in '()))))
(print (srl:sxml->html
	(pre-post-order
	 sxml
	 `((mark . ,(lambda (x attr elems) 
		      elems))
	   (*text* . ,(lambda (trigger x) x))
	   (*default* . ,(lambda x x))))))



